home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / dev / lang / amigatalk.lha / intuition / Font.st < prev    next >
Text File  |  2002-01-14  |  1KB  |  49 lines
  1. "----------------------------------------------"
  2. " Font Class implements control of Amiga Fonts."
  3. "----------------------------------------------"
  4.  
  5. Class Font :Glyph ! private fontName !
  6. [
  7.    dispose
  8.       <primitive 188 4 private>.
  9.       ^ nil
  10. |
  11.    getFont
  12.       ^ private
  13. |
  14.    getName
  15.       ^ fontName <- <primitive 188 6 0 private> "return ta_Name"
  16. |
  17.    setName: newName
  18.       <primitive 188 7 0 newName private>.   "set ta_Name"
  19.       fontName <- newName 
  20. |
  21.    getYSize
  22.       ^ <primitive 188 6 1 private>          "return ta_YSize"
  23. |
  24.    setYSize: newYSize
  25.       <primitive 188 7 1 newYSize private>   "set ta_YSize"
  26. |
  27.    getStyle
  28.       ^ <primitive 188 6 2 private>          "return ta_Style"
  29. |
  30.    setStyle: newStyle
  31.       <primitive 188 7 2 newStyle private>   "set ta_Style"
  32.  
  33.       "NORMAL=0, UNDERLINED=1, BOLD=2, ITALIC=4"
  34. |
  35.    getFlags
  36.       ^ <primitive 188 6 3 private>          "return ta_Flags"
  37. |
  38.    setFlags: newFlags
  39.       <primitive 188 7 3 newFlags private>   "set ta_Flags"
  40.  
  41.       "ROMFONT=1, DISKFONT=2, REVPATH=4, TALLDOT=8, WIDEDOT=16"
  42.       "PROPORTIONAL=32, DESIGNED=64, REMOVED=128"
  43. |
  44.    new: newFontName                " example:  'topaz.font' "
  45.       private  <- <primitive 188 5 newFontName>.
  46.       fontName <- newFontName.
  47.       ^ self
  48. ]
  49.